home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / glibc108.gz / glibc108 / glibc-1.08.1 / sysdeps / vax / ntohs.s < prev    next >
Text File  |  1990-11-02  |  1KB  |  31 lines
  1. /*
  2.  * Copyright (c) 1983 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms are permitted
  6.  * provided that the above copyright notice and this paragraph are
  7.  * duplicated in all such forms and that any documentation,
  8.  * advertising materials, and other materials related to such
  9.  * distribution and use acknowledge that the software was developed
  10.  * by the University of California, Berkeley.  The name of the
  11.  * University may not be used to endorse or promote products derived
  12.  * from this software without specific prior written permission.
  13.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15.  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16.  */
  17.  
  18. #if defined(LIBC_SCCS) && !defined(lint)
  19.     .asciz "@(#)ntohs.s    5.5 (Berkeley) 6/27/88"
  20. #endif /* LIBC_SCCS and not lint */
  21.  
  22. /* hostorder = ntohs(netorder) */
  23.  
  24. #include "DEFS.h"
  25.  
  26. ENTRY(ntohs, 0)
  27.     rotl    $8,4(ap),r0
  28.     movb    5(ap),r0
  29.     movzwl    r0,r0
  30.     ret
  31.